home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
game
/
think
/
Marryampic.lha
/
marryampic
/
Install
< prev
next >
Wrap
Text File
|
1997-10-12
|
1KB
|
37 lines
; Marryampic installation script
; Well, this is the first time I try to write an installation script...
; check kick version
(if (< (/ (getversion) 65536) 37) (abort "Marryampic requires KickStart v2.0 or + to run !"))
(set target
(tackon
(askdir
(prompt "In which disk or drawer should the drawer called \"Marryampic\" be created?")
(help
" The Marryampic program and the CardSet 'Animals' will be installed in a new drawer "
"called \"Marryampic\". You are being asked where this new drawer should be created. "
"If you select \"Work:\", for example, then a new drawer named \"Work:Marryampic\" will be created, "
"and Marryampic will be installed into this new drawer.\n"
"\n"
@askdir-help
)
(default @default-dest)
)
"Marryampic"
)
)
(makedir target (infos))
(set @default-dest target)
(copyfiles
(prompt "Copying to " target )
(help @copyfiles-help)
(source "")
(dest target)
(choices "Marryampic" "Docs" "Cards" "Catalogs")
(infos)
)